home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fantastic Women
/
Fantastic Women.iso
/
mac
/
TITLE.DIR
/
00017_Script_17
< prev
next >
Wrap
Text File
|
1994-11-17
|
4KB
|
227 lines
on butexit
puppetsound "ENDSHOW.WAV"
updateStage
repeat while soundbusy(1)
end repeat
quit
end butexit
on butcred
puppetsound "CRED.AIF"
updateStage
repeat while soundbusy(1)
end repeat
go to movie "credits.dir"
end butcred
on butad
puppetsound "ADBUT.WAV"
updateStage
repeat while soundbusy(1)
end repeat
fin
go to movie "future"
end butad
on butdoor
puppetsound "BIGDOOR2.WAV"
updateStage
repeat while soundbusy(1)
end repeat
fin
play movie "cabin"
end butdoor
-- pressing and moving over the buttons
on FlashRoller whichchannel, scriptToExecute, reddencast
set myCast = the mouseCast
set flag = 0
-- highlight the button when mouse is over it
-- must add check to prevent nothing shown
set the castNum of sprite whichchannel = reddencast
updateStage
repeat while rollover(whichchannel)
if the mouseDown then
-- set the castNum of sprite whichchannel = mycast
set the castNum of sprite whichchannel = reddencast-1
-- set an inverted ink effect when button pressed
set the ink of sprite whichChannel to 4
updateStage
repeat while the mouseDown
if not rollover(whichChannel) then
exit repeat
end if
end repeat
if rollover (whichChannel) then
set flag = 1
exit repeat
end if
end if
end repeat
-- reset to original button
set the castNum of sprite whichChannel = reddencast-1
-- reset original copy ink effect
set the ink of sprite whichChannel to 0
updateStage
if flag then do scriptToExecute
end FlashRoller
-- checks all of the screen buttons and carries out appropriate action
on butcheck
-- deactivate movie button
if the castNum of sprite(16) <> F54 then
set the castNum of sprite(16) = F54
updateStage
end if
-- check forward button
if rollover(18) then
FlashRoller (18,"but" &RETURN& "go to marker(+1)",G55)
end if
-- check backward button
if rollover(17) then
FlashRoller (17,"but" &RETURN& "go to marker(-1)",G52)
end if
-- go back to title
if rollover(13) then
flashroller(13, "contents", 434)
end if
-- tat button
if rollover(20) then
flashroller(20, "tat" , F82)
end if
-- pc button
if rollover(23) then
flashroller(23, " res" , G15)
end if
-- cl button
if rollover(22) then
flashroller(22, "cl", G12)
end if
--ft button
if rollover(24) then
flashroller(24, "ft" , G22)
end if
-- book button
if rollover(14) then
flashroller(14, "book", G35)
end if
-- mag button
if rollover(15) then
flashroller(15, "mag" , G32)
end if
go to marker(0)
end butcheck
-- as above but activates the movie icon and button
on contents
puppetsound "BUTTON4.AIF"
updateStage
fin
go to "return"
end contents
on but
puppetsound "BUTTNOIS.AIF"
updateStage
end but
on book
puppetsound "BOOKST.AIF"
updateStage
go to movie "book.dir"
end book
on mag
puppetsound "BUTTON1.AIF"
updateStage
go to movie "mag.dir"
end mag
on title
puppetsound "BUTTON4.AIF"
updateStage
go to movie "title.dir"
end title
on res
puppetsound "FINRES.AIF"
updateStage
go to movie "res.dir"
end res
on cl
puppetsound "FINALZIP.AIF"
updateStage
go to movie "cl.dir"
end cl
on pc
puppetsound "FINPIERC.WAV"
updateStage
go to movie "pc.dir"
end pc
on ft
puppetsound "FINSTILE.AIF"
updateStage
go to movie "ft.dir"
end ft
on tat
puppetsound "FINTAT.AIF"
updateStage
go to movie "tat.dir"
end tat